COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TSTARR"
C00003 ENDMK
C⊗;
BEGIN "TSTARR"
REQUIRE "ADDARR.REL" LOAD_MODULE;
EXTERNAL PROCEDURE ADDARR(INTEGER ARRAY X; INTEGER Y, Z);

INTEGER I,LB,UB;
INTEGER ARRAY X[1:10];

LB← 1;
UB← 10;

FOR I← LB STEP 1 UNTIL UB DO
  PRINT(X[I],"	");

PRINT("
");

ADDARR(X,LB,UB);

FOR I← LB STEP 1 UNTIL UB DO
  PRINT(X[I],"	");

END;